gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_ChkPurview.asp

    <!--#include file="Inc/clsSetting.asp"-->
<!--#include file="Inc/clsMain.asp"-->
<!--#include file="Inc/clsBehind.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

Dim Netout,FoundErr,ErrMsg,rsChk
set Netout=New Netout_Photo

if Netout.UserName="" then
	FoundErr = True
	ErrMsg = "<br><li>对不起，您还没有登录！</li>"
else
	if Not Netout.Master then
		FoundErr = True
		ErrMsg = "<br><li>对不起，您不具有管理该页的权限！</li>"
	else
		Set rsChk = Conn.execute("select * from NT_User where UserName='"&Netout.UserName&"'")
		if rsChk.eof or rsChk.bof then
			FoundErr = true
			ErrMsg = "<br><li>不要尝试非法侵入！您的每一次操作本系统都将记录在案！</li>"
		end if
		Set rsChk = Nothing
	end if
end if
if FoundErr = True then
	Behind.WriteErrMsg(ErrMsg)
	Response.End()
	Set Netout = Nothing
end if
Dim IsHttpUrl
If InStr(Lcase(Config.SystemUrl),"localhost") Or InStr(Lcase(Config.SystemUrl),"192.168.") Or InStr(Lcase(Config.SystemUrl),"127.0") Then
	IsHttpUrl = False
Else
	IsHttpUrl = True
End If
%>